COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
C00006 ENDMK
C⊗;
PRECEDE;  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
PLAY; REVERB 0 5;
*    
TOP  ;	< BG time=0, inst 1 plays 8 notes.
P2 RHY/8/16//8//4//2; < Rhythm is 8th,  2 16ths,  2 8ths,  2 quarters,
                        half.  See section 4 and following for use
        		       of 'RHY', 'NOTES', etc.
  
P3 NOTES/Z(C4/D/E/F/G/A/B/C5)/FINE; < Scale goes up from middle C.
P4 .45;  < AMPLITUDE FACTOR
P5 F2; < SOSTENUTO ENVELOPE
P6 F1;  < A SINE WAVE
P13 .06 ALL;
END;< Ampl(P4)=500, envelope is sostenuto (F2).
BOTM ;      P2 RHY/4 X 4/2/FINE; < 4 quarters and 1 half. 'FINE'=END
P3 NOTES/C3/A/F/G/C/FINE;<Bass notes
P4 .5 ;
< AMPLITUDE FACTOR IS .5
P5 F3; < F3 will give semi-staccato.
P6 F4; < CLARINET-LIKE TONE
END;
TOOT 0 4;
P2 .2;
P3 .4 C3 C8 .2 C5,C  .2 G,G .2 E,E;
P4 .7; END;
   TEMPO/96      ;M=96
CONDUCT;
QQQ    ;
RUN;